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L— refto( top unit; 
C = O 
while L !=0 

for each reference r in L begin 
NL— <D 
t— typeoff r ) 
r.target— makenodef t ) 
O— C+{ constraints of t } 
for each field f in t begin 
NL- NL + refto( f ) 
C-apply(C j 
end 
end 

L-L + NL _. 0 

end Fig. 2 



struct cl { 
id 

data 
Idrdy 
Ixreq 
Ixgrt 
arb 
keep arb 

}; 



:int; 
:int; 
:bool; 
:bool; 
:bool; 
:arb; 
== sys.arb; 



// arbiter client 
// my id 

//data - INPUT 

//data ready - INPUT 

// transfer request - interface to arb 

// transfer grant - arb sets this 



struct arb { 

els :list of cl; 

data :int ; // data destination 

}; 



extend sys { 

cljist :list ofcl; 
keep cl_list.size () == 4; 
keep for each in cljist { 
.id == index; 

}; 

arb :arb; 
keep arb.cls == cljist; 



Fig. 3 
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1 <' 

2 struct cl { // arbiter client 

3 id : int ; // my id 

4 data :int; // data - INPUT 

5 !drdy :bool; // data ready - INPUT 

6 !xreq :bool; // transfer request 

7 !xgrt :bool; // transfer grant 

8 arb :arb; 

9 keep arb == sys.arb; 
10 

11 trans () Qsys.clk is { 

12 while TRUE { 

13 wait true(drdy); 

14 xreq = TRUE; 

15 wait true(xgrt); 

16 arb. data = data; 

17 wait cycle; 

18 xreq - FALSE; 

19 wait true {not xgrt) ; 

20 drdy - FALSE; 

21 }; 

22 } ; 

23 } ; 
24 

25 struct arb { 

26 els :list of cl; 

27 data tint; // data destination 

28 switch {) @sys.clk is { 

29 while TRUE { 

30 for each in els { 

31 if .xreq then { 

32 .xgrt - TRUE; 

33 wait true(not .xreq); 

34 .xgrt = FALSE; 

35 ) ; 

36 } ; 

37 wait cycle; 

38 } ; 

39 } ; 

40 }; 
41 

42 extend sys { 

43 cl_list :list of cl; 

44 keep cl_list . size ( ) ~ 4; 

45 keep for each in cl_list { 
4 6 . id == index ; 

47 }; 

48 a rb : a r b ; 

49 keep arb. els — cl_list; 

50 event elk; ■ IQ- O 

51 ); 

52 •> 



Serial No.: 09/880.888 Sheet: 7 of 15 

Inventor: KASHAI Yaron. et al Title: SYNTHESIS OF VERIFICATION LANGUAGES 




APR 2 3 2004 I Serial No.: 09/880.888 

M>l Tnventor: KASHAI Yaron. ct al 



Replacement Sheet ^ Sheet: 9 of 15 

Title: SYNTHESIS OF VERIFICATION LANGUAGES 




I line 32 in @arbjexamp!e| 

7 



fine 33 in @arb_exampte 

I fine 34 in @arb_example I J 
I line 30 in @arb_example! 




I line 32 in @arb_example 

^ — 



[firo 33 in @arfa_exa^ge] 
j line 34 in @arb_example | 



[TSne37 in @arto,examj^ 
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Fig. 9 



for each node n in EG such that n has processes begin 
for each process p in n begin 
for each segment s in p begin 
for each action a in s begin 
for each read expression e in a begin 
t — evaluate( e, context ) 
tag t with {n, s, 'read'} 
end 

for each write expression e in a begin 
t — evaluate( e, context ) 
tag t with {n, s, 'write'} 
end 
end 
end 
end 
end 

Fig. 10 
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line 10 in @peterson 
line 11 in @peterson 
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2 This is an iterator access to hierarchical arrays 

3 

4 <' 

5 struct ball { 

6 dat mint (bits: 3); 

7 mat :list of bool; 

8 keep mat. size () -= 2; 

9 }; 
10 

11 struct box { 

12 flag tbool; 

13 bl :list of ball; 

14 keep bl.sizeO — 5; 

15 }; 
16 

17 struct iter_type { 

18 ar :list of box; 

19 foo() Qsys.clk is { 

20 wait cycle; 

21 for each in ar { 

22 .flag = TRUE; 

23 for each in .bl { 

24 -dat = 2; 

25 .mattl] = FALSE; 

26 }; 

27 }; 

28 ar[2] -bl[3] .mat[0] = TRUE; 

29 ar[2] .blfsys.ind] .mat[0] * TRUE; 

30 }; 

31 } ; 
32 

33 extend sys { 

34 event elk; 

35 arr :list of box; 

36 keep arr. size () == 4; 

37 ind tint; 
38 

39 iter :iter_type; 

40 keep iter.ar == arr; 

41 } ; 
42 

43 f > 



Fig. 15 
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